Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/BBS/SECOND_SIGHT/AddBBS.cpt/AddBBS/ADDNUMBER

Text File | 1987-01-19 | 1KB | 202 lines

**Add a BBS # survey**
TEXT1
1
ADD A BBS NUMBER
0
NIL
**
TEXT4
1

0
NIL
**Ask for Name**
PROMPT1
9
The BBS Name?
30
NIL
**TEST FOR RESPONSE**
TEST1
4
NIL
0
TEXT4
**SCRATCH IT**
SCRATCH1
13
BBS Name:
0
NIL
**WRITE RESPONSE**
SCRATCH2
5
NIL
0
NIL
**
TEXT5
1

0
NIL
**ASK FOR Phone NUmber**
PROMPT2
9
Phone Number (XXX-XXX-XXXX)?
12
NIL
**
TEST2
4
NIL
0
TEXT5
**SCRATCHIT**
SCRATCH3
13
Phone Number:
0
NIL
**WRITE IT
SCRATCH4
5
NIL
0
NIL
**BLANK
TEXT6
1

0
NIL
**Hours of bBS
PROMPT3
9
Hours of the BBS?
20
NIL
**
TESTING
4
NIL
0
TEXT6
**IDENTIFY IT
SCRATCH5
13
Hours:
0
NIL
**WRITE T&S
SCRATCH6
5
NIL
0
NIL
**BLANK
BLANK
1

0
NIL
**PHONE NUMBER**
PROMPT4
9
About the BBS (55 Char)?
55
NIL
**
TESTIT
4
NIL
0
BLANK
**IDENTIFY
SCRATCHIT
13
About:
0
NIL
**WRITE PHONE
SCART
5
NIL
0
NIL
**BLANK LINE**
TEXT9
1

0
NIL
**COMPUTERTYPE**
PROMPTING
9
Computer type?
60
NIL
**
CHECK
4
NIL
0
TEXT9
**S
SCRATCHINGIT
13
Computer Type:
0
NIL
**NOW WRITE IT
WRITNGI
5
NIL
0
NIL
*9
EMPTYLINE
1

0
NIL
**CHECK IF OK**
PROMPT10
10
Are you satisfied with what you entered (Y/N)?
0
NIL
**NO EMPTY
TEST9
4
NIL
0
EMPTYLINE
**IF NO
TEST4
3
N
0
GETOUT
**OTHERWISE APPEND
SAVITALL
6
NIL
0
NIL
**leave
DONE
7
NIL
0
NIL
**HE SAID NO**
GETOUT
7
NIL
0
NIL